home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
AddToAlias.zprx
< prev
next >
Wrap
Text File
|
1994-11-20
|
4KB
|
126 lines
/*
$VER: AddToAlias.zprx 1.01 (30-Oct-94) Copyright (c) Nils Görs
Dies ist ein ARexx-Script für Zodiac's Point mit dem die Netz-
adresse der aktuellen Nachricht automatisch in die Aliasliste ge-
speichert wird.
Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
nicht ohne Erlaubnis des Autors.
Sie erreichen den Autor wie folgt:
Nils Görs Tel. : +49 (0)202 784258
Kaiserstr. 97a EMail: N.Goers@Art-Line.wupper.de
42329 Wuppertal oder über das ZP-Support-Brett.
Verwenden Sie bitte nach Möglichkeit elektronische Post!
Hinweise zur Installation:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
"F1:SYS:Rexxc/RX ZPOINT:Rexx/AddToAlias.zprx %s" hinzu.
V1.00 > V1.01: Es wird nun automatisch erkannt, ob die Adresse schon
in Ihrer Liste vorhanden ist. */
/* Wo befindet sich ihre Aliasliste ??? */
Filename = "Zodiac:Bretter/alias.zp"
/* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
* Bitte geben Sie hier ihre Präferenzen ein ! *
*******************************************************************/
/*******************************************************************
* Bitte unterhalb dieser Zeile nichts mehr verändern! *
*******************************************************************/
NL = '0a'x /* Zeichen für Zeilenumbruch */
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
zpPort = "ZPoint"
ADDRESS VALUE zpPort
WHICHLEVEL
IF (RESULT ~== 'BOARD') THEN
DO
requestnotify "nicht im Brett!"
EXIT
END
ELSE
MESSAGEINFO AUTHOR
Username=Result
IF ~OPEN(Alias.dat,Filename,Read) THEN
DO
requestnotify "Konnte" Filename "nicht finden!"
EXIT
END
ELSE
Bool=VERIFY(Username," ",MATCH) /* Aus wievielen Zeichen besteht die Netzadresse ?? */
IF Bool ~== 0 THEN
DO
BoolEnd=VERIFY(Username,")",MATCH) /* Wo endet der Realname ?? */
Bool=Bool-1
Netzadresse=LEFT(Username,bool) /* Netzadresse rauskopieren */
Boolend=Boolend-Bool-1
Realname=RIGHT(Username,boolend) /* Realnamen rauskopieren */
Realname=COMPRESS(Realname,"()") /* ( und ) werden aus String entfernt */
CALL AddToAlias
EXIT
END
ELSE
requeststring 'PROMPT "Bitte den _UserNamen eingeben"'
Realname=result
IF (Realname ~== '') THEN
DO
Netzadresse=Username
CALL AddToAlias
END
ELSE
RequestNotify 'Kein Name eingegeben!'
EXIT
AddToAlias:
DO
Realname=INSERT(NL"N:",Realname) /* [CR] und N: vor den Realnamen */
Netzadresse=INSERT("A:",Netzadresse) /* A: vor die Netzadresse */
DO WHILE ~EOF(Alias.dat)
InString=READLN(Alias.dat)
Ergebniss=INDEX(InString,Netzadresse)
IF Ergebniss == 1 THEN
DO
requestnotify Username||NL"befindet sich schon in Ihrer Aliasliste!"
EXIT
END
END
Netzadresse=INSERT(Netzadresse,NL"-") /* [CR] und - an das Ende */
CALL SEEK(Alias.dat,0,"E") /* zum Ende des Files springen */
CALL WRITELN(Alias.dat,Realname) /* Realnamen anfügen */
CALL SEEK(Alias.dat,0,"E") /* zum Ende des Files springen */
CALL WRITELN(Alias.dat,Netzadresse) /* Netzadresse anfügen */
CALL SEEK(Alias.dat,0,"E") /* zum Ende des Files springen */
requestnotify Username||NL"wurde in Ihre Aliasliste aufnommen!"
END